unit uClasseOrdemServicoItem;

interface

uses
  uClasseBase;

type
  TOrdemServicoItem = class(TConsultaBase)
  const
    Tabela = 'Ordem_Servico_Item';
    PrimaryKey = 'nr_sequencia';
  private
    Fnr_sequencia: integer;
    Fnr_seq_produto: string;
    Fqt_produto: Integer;
    Fnr_seq_ordem_servico: integer;
    procedure SetNr_sequencia(const Value: integer);
    procedure SetNr_seq_ordem_servico(const Value: integer);
    procedure SetNr_seq_produto(const Value: string);
    procedure SetQt_produto(const Value: Integer);
  public
    class function GetTabela:string;override;
    class function GetPrimaryKey:string;override;
    constructor Create;overload;
    function ExcluirPKInsert:Boolean;override;
  published
    property nr_sequencia:integer read Fnr_sequencia write SetNr_sequencia;
    property nr_seq_ordem_servico:integer read Fnr_seq_ordem_servico write SetNr_seq_ordem_servico;
    property nr_seq_produto:string read Fnr_seq_produto write SetNr_seq_produto;
    property qt_produto:Integer read Fqt_produto write SetQt_produto;
  end;

implementation

uses
  uUtils,
  ADODB;

{ TCaixa }

constructor TOrdemServicoItem.Create;
begin
  FADOConn := TConexao.Interna;
  inherited;
end;

function TOrdemServicoItem.ExcluirPKInsert: Boolean;
begin
  Result := True;
end;

class function TOrdemServicoItem.GetPrimaryKey: string;
begin
  result := PrimaryKey;
end;

class function TOrdemServicoItem.GetTabela: string;
begin
  result := Tabela;
end;

procedure TOrdemServicoItem.SetNr_sequencia(const Value: integer);
begin
  Fnr_sequencia := Value;
end;

procedure TOrdemServicoItem.SetNr_seq_ordem_servico(const Value: integer);
begin
  Fnr_seq_ordem_servico := Value;
end;

procedure TOrdemServicoItem.SetNr_seq_produto(const Value: string);
begin
  Fnr_seq_produto := Value;
end;

procedure TOrdemServicoItem.SetQt_produto(const Value: Integer);
begin
  Fqt_produto := Value;
end;

end.
